home *** CD-ROM | disk | FTP | other *** search
- G4C
-
- winbig -1 -1 390 104 "GC Font Chart (Buttons are 30x14)"
- wintype 11110001
-
- xonload
- guiopen gc_chart
-
- xonclose
- delvar gc_char
- guiquit gc_chart
-
- box 0 84 0 20 out button
-
- text 50 88 70 12 "" 3 nobox
- gadid 1
- gadfont gc.font 12 000
-
- text 100 88 270 12 "" 30 box
- gadid 2
- gadtxt center
-
- xbutton 0 0 30 14 a
- gadfont gc.font 12 000
- gc_char = a
- gosub gc_chart update
-
- xbutton 30 0 30 14 b
- gadfont gc.font 12 000
- gc_char = b
- gosub gc_chart update
-
- xbutton 60 0 30 14 c
- gadfont gc.font 12 000
- gc_char = c
- gosub gc_chart update
-
- xbutton 90 0 30 14 d
- gadfont gc.font 12 000
- gc_char = d
- gosub gc_chart update
-
- xbutton 120 0 30 14 e
- gadfont gc.font 12 000
- gc_char = e
- gosub gc_chart update
-
- xbutton 150 0 30 14 f
- gadfont gc.font 12 000
- gc_char = f
- gosub gc_chart update
-
- xbutton 180 0 30 14 g
- gadfont gc.font 12 000
- gc_char = g
- gosub gc_chart update
-
- xbutton 210 0 30 14 h
- gadfont gc.font 12 000
- gc_char = h
- gosub gc_chart update
-
- xbutton 240 0 30 14 i
- gadfont gc.font 12 000
- gc_char = i
- gosub gc_chart update
-
- xbutton 270 0 30 14 j
- gadfont gc.font 12 000
- gc_char = j
- gosub gc_chart update
-
- xbutton 300 0 30 14 k
- gadfont gc.font 12 000
- gc_char = k
- gosub gc_chart update
-
- xbutton 330 0 30 14 l
- gadfont gc.font 12 000
- gc_char = l
- gosub gc_chart update
-
- xbutton 360 0 30 14 m
- gadfont gc.font 12 000
- gc_char = m
- gosub gc_chart update
-
- xbutton 0 14 30 14 A
- gadfont gc.font 12 000
- gc_char = A
- gosub gc_chart update
-
- xbutton 30 14 30 14 B
- gadfont gc.font 12 000
- gc_char = B
- gosub gc_chart update
-
- xbutton 60 14 30 14 C
- gadfont gc.font 12 000
- gc_char = C
- gosub gc_chart update
-
- xbutton 90 14 30 14 D
- gadfont gc.font 12 000
- gc_char = D
- gosub gc_chart update
-
- xbutton 120 14 30 14 E
- gadfont gc.font 12 000
- gc_char = E
- gosub gc_chart update
-
- xbutton 150 14 30 14 F
- gadfont gc.font 12 000
- gc_char = F
- gosub gc_chart update
-
- xbutton 180 14 30 14 G
- gadfont gc.font 12 000
- gc_char = G
- gosub gc_chart update
-
- xbutton 210 14 30 14 H
- gadfont gc.font 12 000
- gc_char = H
- gosub gc_chart update
-
- xbutton 240 14 30 14 I
- gadfont gc.font 12 000
- gc_char = I
- gosub gc_chart update
-
- xbutton 270 14 30 14 J
- gadfont gc.font 12 000
- gc_char = J
- gosub gc_chart update
-
- xbutton 300 14 30 14 K
- gadfont gc.font 12 000
- gc_char = K
- gosub gc_chart update
-
- xbutton 330 14 30 14 L
- gadfont gc.font 12 000
- gc_char = L
- gosub gc_chart update
-
- xbutton 360 14 30 14 M
- gadfont gc.font 12 000
- gc_char = M
- gosub gc_chart update
-
- xbutton 0 28 30 14 n
- gadfont gc.font 12 000
- gc_char = n
- gosub gc_chart update
-
- xbutton 30 28 30 14 o
- gadfont gc.font 12 000
- gc_char = o
- gosub gc_chart update
-
- xbutton 60 28 30 14 p
- gadfont gc.font 12 000
- gc_char = p
- gosub gc_chart update
-
- xbutton 90 28 30 14 q
- gadfont gc.font 12 000
- gc_char = q
- gosub gc_chart update
-
- xbutton 120 28 30 14 r
- gadfont gc.font 12 000
- gc_char = r
- gosub gc_chart update
-
- xbutton 150 28 30 14 s
- gadfont gc.font 12 000
- gc_char = s
- gosub gc_chart update
-
- xbutton 180 28 30 14 t
- gadfont gc.font 12 000
- gc_char = t
- gosub gc_chart update
-
- xbutton 210 28 30 14 u
- gadfont gc.font 12 000
- gc_char = u
- gosub gc_chart update
-
- xbutton 240 28 30 14 v
- gadfont gc.font 12 000
- gc_char = v
- gosub gc_chart update
-
- xbutton 270 28 30 14 w
- gadfont gc.font 12 000
- gc_char = w
- gosub gc_chart update
-
- xbutton 300 28 30 14 x
- gadfont gc.font 12 000
- gc_char = x
- gosub gc_chart update
-
- xbutton 330 28 30 14 y
- gadfont gc.font 12 000
- gc_char = y
- gosub gc_chart update
-
- xbutton 360 28 30 14 z
- gadfont gc.font 12 000
- gc_char = z
- gosub gc_chart update
-
- xbutton 0 42 30 14 N
- gadfont gc.font 12 000
- gc_char = N
- gosub gc_chart update
-
- xbutton 30 42 30 14 O
- gadfont gc.font 12 000
- gc_char = O
- gosub gc_chart update
-
- xbutton 60 42 30 14 P
- gadfont gc.font 12 000
- gc_char = P
- gosub gc_chart update
-
- xbutton 90 42 30 14 Q
- gadfont gc.font 12 000
- gc_char = Q
- gosub gc_chart update
-
- xbutton 120 42 30 14 R
- gadfont gc.font 12 000
- gc_char = R
- gosub gc_chart update
-
- xbutton 150 42 30 14 S
- gadfont gc.font 12 000
- gc_char = S
- gosub gc_chart update
-
- xbutton 180 42 30 14 T
- gadfont gc.font 12 000
- gc_char = T
- gosub gc_chart update
-
- xbutton 210 42 30 14 U
- gadfont gc.font 12 000
- gc_char = U
- gosub gc_chart update
-
- xbutton 240 42 30 14 V
- gadfont gc.font 12 000
- gc_char = V
- gosub gc_chart update
-
- xbutton 270 42 30 14 W
- gadfont gc.font 12 000
- gc_char = W
- gosub gc_chart update
-
- xbutton 300 42 30 14 X
- gadfont gc.font 12 000
- gc_char = X
- gosub gc_chart update
-
- xbutton 330 42 30 14 Y
- gadfont gc.font 12 000
- gc_char = Y
- gosub gc_chart update
-
- xbutton 360 42 30 14 Z
- gadfont gc.font 12 000
- gc_char = Z
- gosub gc_chart update
-
- xbutton 0 56 30 14 !
- gadfont gc.font 12 000
- gc_char = !
- gosub gc_chart update
-
- xbutton 0 70 30 14 1
- gadfont gc.font 12 000
- gc_char = 1
- gosub gc_chart update
-
- xbutton 30 56 30 14 @
- gadfont gc.font 12 000
- gc_char = @
- gosub gc_chart update
-
- xbutton 30 70 30 14 2
- gadfont gc.font 12 000
- gc_char = 2
- gosub gc_chart update
-
- xbutton 60 56 30 14 #
- gadfont gc.font 12 000
- gc_char = #
- gosub gc_chart update
-
- xbutton 60 70 30 14 3
- gadfont gc.font 12 000
- gc_char = 3
- gosub gc_chart update
-
- xbutton 90 56 30 14 $
- gadfont gc.font 12 000
- set translation off
- update gc_chart 1 "$"
- update gc_chart 2 "This is the '$' character"
-
- xbutton 90 70 30 14 4
- gadfont gc.font 12 000
- gc_char = 4
- gosub gc_chart update
-
- xroutine update
- update gc_chart 1 $gc_char
- update gc_chart 2 "This is the '$gc_char' character"
-